From 574ea2f0b365a24750d067e0c81f954885972c30 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 17 Feb 2007 11:27:26 +0000 Subject: [PATCH] (font-lock-extend-region-wholelines): Test for EOB in addition to BOL. --- lisp/font-lock.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/font-lock.el b/lisp/font-lock.el index 62008ac295b..fd2dedc1dae 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el @@ -1075,20 +1075,20 @@ Put first the functions more likely to cause a change and cheaper to compute.") (setq font-lock-beg (or (previous-single-property-change font-lock-beg 'font-lock-multiline) (point-min)))) - ;; + ;; (when (get-text-property font-lock-end 'font-lock-multiline) (setq changed t) (setq font-lock-end (or (text-property-any font-lock-end (point-max) 'font-lock-multiline nil) (point-max)))) changed)) - - + (defun font-lock-extend-region-wholelines () "Move fontification boundaries to beginning of lines." (let ((changed nil)) (goto-char font-lock-beg) - (unless (bolp) (setq changed t font-lock-beg (line-beginning-position))) + (unless (or (bolp) (eobp)) + (setq changed t font-lock-beg (line-beginning-position))) (goto-char font-lock-end) (unless (bolp) (unless (eq font-lock-end -- 2.30.2